home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HYPWRT2.cpt / HyperWrite / card_4702.txt < prev    next >
Text File  |  1988-04-03  |  4KB  |  178 lines
  1. -- card: 4702 from stack: in
  2. -- bmap block id: 7291
  3. -- flags: 4000
  4. -- background id: 3015
  5. -- name: Print Directions 1
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=215 top=235 right=257 bottom=275
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Cancel
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "Primary Card"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A003
  30. -- rect: left=129 top=158 right=180 bottom=275
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Selection Only
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   set cursor to 4
  42.   go to card "Primary Card"
  43.   Set the lockScreen to true
  44.   get location of bkgnd field "Title"
  45.   click at it
  46.   click at 4,41
  47.   click at 480,340 with shiftKey
  48.   if selection is empty then
  49.     answer "There's nothing to print!"
  50.     exit mouseUp
  51.   else
  52.     doMenu "Copy Text"
  53.     put textStyle of field "Text" into temp1
  54.     put textAlign of field "Text" into temp2
  55.     put textFont of field "Text" into temp3
  56.     put textSize of field "Text" into temp4
  57.     put textHeight of field "Text" into temp5
  58.  
  59.  
  60.  
  61.     go to card "QuickPrint"
  62.  
  63.     show field "TextPrint"
  64.  
  65.  
  66.     click at 4,41
  67.     type tab
  68.     if selection is not empty then doMenu "Clear Text"
  69.     click at 4,41
  70.     doMenu "Paste Text"
  71.  
  72.  
  73.     type tab
  74.     set textStyle of field "TextPrint" to temp1
  75.     set textAlign of field "TextPrint" to temp2
  76.     set textFont of field "TextPrint" to temp3
  77.     set textSize of field "TextPrint" to temp4
  78.     set textHeight of field "TextPrint" to temp5
  79.  
  80.  
  81.     doMenu "Print Card"
  82.  
  83.     type tab
  84.     doMenu "Cut Text"
  85.     hide field "TextPrint"
  86.  
  87.     go to card "Primary Card"
  88.   end if
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 3 (button)
  94. -- low flags: 00
  95. -- high flags: A003
  96. -- rect: left=129 top=183 right=205 bottom=275
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: HyperCard Report
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.  
  108.   go to card "Primary Card"
  109.   doMenu "Print Report..."
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 4 (button)
  115. -- low flags: 00
  116. -- high flags: A003
  117. -- rect: left=129 top=133 right=155 bottom=275
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: ImageWriter II NLQ
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   set cursor to 4
  129.   go to card "Primary Card"
  130.   open file "!HW Print File"
  131.   write field "Text" to file "!HW Print File"
  132.   close file "!HW Print File"
  133.  
  134.  
  135.   open "HyperWrite Printer"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 5 (button)
  141. -- low flags: 00
  142. -- high flags: A003
  143. -- rect: left=129 top=108 right=130 bottom=275
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Macintosh Standard
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.  
  155.   go to card "Primary Card"
  156.   PrintField("bkgnd field 2")
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 6 (button)
  162. -- low flags: 00
  163. -- high flags: A003
  164. -- rect: left=129 top=235 right=257 bottom=189
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Help
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   go to card "HwHelp"
  176. end mouseUp
  177.  
  178.